﻿Module Module1
  Sub Main()
    Dim m_nome As String
    Dim m_cognome As String
    Dim m_matr As Integer

    Console.Write("Nome: ")
    m_nome = Console.ReadLine
    Console.Write("Cognome: ")
    m_cognome = Console.ReadLine
    Console.Write("Matricola: ")
    m_matr = Console.ReadLine

    Dim dip1 As New Dipendente(m_matr, _
        m_nome, m_cognome)
    Console.WriteLine(dip1.leggiMatricola & _
        " - " & dip1.leggiNominativo)
    Console.WriteLine("")
    Console.Write("Premere INVIO " & _
        "per terminare.")
    Console.ReadLine()
  End Sub
End Module
